/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Tele / I-L / LineShare Demo 1.3.cpt / LineShare Demo 1.3 Folder / LineShare Scripts / EXAR Fax&MultiData

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 12 45 58 41 52 20 46 | 61 78 26 4d 75 6c 74 69 |..EXAR F|ax&Multi|
|00000010| 44 61 74 61 00 00 00 00 | 00 00 00 00 00 00 00 00 |Data....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 73 4c 69 | 4e 00 00 00 00 00 00 00 |.TEXTsLi|N.......|
|00000050| 00 00 00 00 00 19 16 00 | 00 01 5e a7 42 29 01 a7 |........|..^.B)..|
|00000060| 42 29 01 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |B)......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0c eb 00 00 |........|........|
|00000080| 21 0d 21 20 4c 69 6e 65 | 53 68 61 72 65 aa 20 53 |!.! Line|Share. S|
|00000090| 63 72 69 70 74 20 66 6f | 72 20 32 34 30 30 2f 39 |cript fo|r 2400/9|
|000000a0| 36 30 30 20 64 61 74 61 | 2d 66 61 78 20 6d 6f 64 |600 data|-fax mod|
|000000b0| 65 6d 73 20 28 45 58 41 | 52 2d 62 61 73 65 64 29 |ems (EXA|R-based)|
|000000c0| 0d 21 0d 21 20 54 68 69 | 73 20 73 63 72 69 70 74 |.!.! Thi|s script|
|000000d0| 20 69 73 20 64 65 73 69 | 67 6e 65 64 20 74 6f 20 | is desi|gned to |
|000000e0| 75 73 65 20 77 69 74 68 | 20 66 61 78 20 61 6e 64 |use with| fax and|
|000000f0| 20 73 65 76 65 72 61 6c | 20 64 61 74 61 20 73 65 | several| data se|
|00000100| 72 76 69 63 65 73 3a 0d | 21 20 54 65 6c 65 46 69 |rvices:.|! TeleFi|
|00000110| 6e 64 65 72 aa 20 42 42 | 53 20 28 22 54 46 22 20 |nder. BB|S ("TF" |
|00000120| 73 75 62 50 6f 72 74 29 | 0d 21 20 51 75 69 63 6b |subPort)|.! Quick|
|00000130| 4d 61 69 6c aa 20 4d 61 | 69 6c 53 65 72 76 65 72 |Mail. Ma|ilServer|
|00000140| 20 28 22 4d 61 69 6c 22 | 20 73 75 62 50 6f 72 74 | ("Mail"| subPort|
|00000150| 29 0d 21 20 74 68 65 20 | 63 68 6f 69 63 65 20 69 |).! the |choice i|
|00000160| 73 20 64 6f 6e 65 20 6d | 61 6e 75 61 6c 6c 79 2c |s done m|anually,|
|00000170| 20 62 79 20 74 68 65 20 | 75 73 65 72 2c 20 77 68 | by the |user, wh|
|00000180| 65 6e 20 63 6f 6e 6e 65 | 63 74 69 6e 67 20 74 6f |en conne|cting to|
|00000190| 20 74 68 65 20 68 6f 73 | 74 0d 21 20 54 68 65 20 | the hos|t.! The |
|000001a0| 73 63 72 69 70 74 20 64 | 69 73 70 6c 61 79 73 20 |script d|isplays |
|000001b0| 6d 65 6e 75 3a 20 74 68 | 69 73 20 6c 69 6e 65 73 |menu: th|is lines|
|000001c0| 20 61 72 65 20 6d 61 72 | 6b 65 64 20 77 69 74 68 | are mar|ked with|
|000001d0| 20 22 40 40 40 22 0d 21 | 0d 21 20 46 6f 72 20 73 | "@@@".!|.! For s|
|000001e0| 6f 6d 65 20 72 65 61 73 | 6f 6e 73 20 54 65 6c 65 |ome reas|ons Tele|
|000001f0| 46 69 6e 64 65 72 20 72 | 65 64 65 66 69 6e 65 73 |Finder r|edefines|
|00000200| 20 74 68 65 20 4c 69 6e | 65 46 65 65 64 20 63 68 | the Lin|eFeed ch|
|00000210| 61 72 61 63 74 65 72 20 | 28 53 34 29 0d 21 20 57 |aracter |(S4).! W|
|00000220| 65 20 64 6f 6e 27 74 20 | 72 65 64 65 66 69 6e 65 |e don't |redefine|
|00000230| 20 69 74 20 72 65 61 6c | 6c 79 2c 20 62 75 74 20 | it real|ly, but |
|00000240| 77 65 20 65 6d 75 6c 61 | 74 65 20 6d 6f 64 65 6d |we emula|te modem|
|00000250| 20 72 65 73 70 6f 6e 73 | 65 73 20 77 69 74 68 20 | respons|es with |
|00000260| 74 68 61 74 20 73 79 6d | 62 6f 6c 0d 21 20 54 68 |that sym|bol.! Th|
|00000270| 69 73 20 74 72 69 63 6b | 20 69 73 20 64 6f 6e 65 |is trick| is done|
|00000280| 20 69 6e 20 6c 69 6e 65 | 73 20 6d 61 72 6b 65 64 | in line|s marked|
|00000290| 20 77 69 74 68 20 27 24 | 24 24 24 27 0d 21 0d 21 | with '$|$$$'.!.!|
|000002a0| 20 49 66 20 79 6f 75 20 | 77 61 6e 74 20 74 6f 20 | If you |want to |
|000002b0| 6d 6f 64 69 66 79 20 74 | 68 69 73 20 73 63 72 69 |modify t|his scri|
|000002c0| 70 74 20 66 6f 72 20 79 | 6f 75 72 20 6d 6f 64 65 |pt for y|our mode|
|000002d0| 6d 2c 20 70 61 79 20 61 | 74 74 65 6e 74 69 6f 6e |m, pay a|ttention|
|000002e0| 20 74 6f 0d 21 20 74 68 | 65 20 6c 69 6e 65 20 6d | to.! th|e line m|
|000002f0| 61 72 6b 65 64 20 22 23 | 23 23 23 20 53 65 74 74 |arked "#|### Sett|
|00000300| 69 6e 67 73 20 23 23 23 | 23 22 20 2d 20 69 74 20 |ings ###|#" - it |
|00000310| 73 68 6f 75 6c 64 20 62 | 65 20 6d 6f 64 69 66 69 |should b|e modifi|
|00000320| 65 64 20 66 69 72 73 74 | 0d 21 0d 21 20 54 68 65 |ed first|.!.! The|
|00000330| 20 54 65 6c 65 46 69 6e | 64 65 72 20 22 48 6f 73 | TeleFin|der "Hos|
|00000340| 74 20 4f 70 74 69 6f 6e | 73 22 20 75 73 65 64 3a |t Option|s" used:|
|00000350| 0d 21 20 22 41 64 6a 75 | 73 74 20 42 50 53 20 74 |.! "Adju|st BPS t|
|00000360| 6f 20 6c 69 6e 65 20 73 | 70 65 65 64 22 20 2d 20 |o line s|peed" - |
|00000370| 2a 64 69 73 61 62 6c 65 | 64 2a 20 28 73 69 6e 63 |*disable|d* (sinc|
|00000380| 65 20 77 65 20 61 6c 73 | 77 61 79 73 20 72 65 74 |e we als|ways ret|
|00000390| 75 72 6e 20 22 43 4f 4e | 4e 45 43 54 20 31 39 32 |urn "CON|NECT 192|
|000003a0| 30 30 22 29 0d 21 20 22 | 55 73 65 20 42 72 65 61 |00").! "|Use Brea|
|000003b0| 6b 20 52 65 73 65 74 22 | 20 2d 20 2a 65 6e 61 62 |k Reset"| - *enab|
|000003c0| 6c 65 64 2a 2c 0d 21 20 | 4c 69 6e 65 53 68 61 72 |led*,.! |LineShar|
|000003d0| 65 20 22 4f 70 74 69 6f | 6e 73 c9 22 20 66 6f 72 |e "Optio|ns." for|
|000003e0| 20 74 68 65 20 22 54 46 | 22 20 73 75 62 70 6f 72 | the "TF|" subpor|
|000003f0| 74 3a 0d 21 20 44 69 73 | 63 6f 6e 6e 65 63 74 20 |t:.! Dis|connect |
|00000400| 77 68 65 6e 20 22 53 65 | 6e 64 73 20 42 72 65 61 |when "Se|nds Brea|
|00000410| 6b 22 20 2d 20 65 6e 61 | 62 6c 65 64 2e 20 20 28 |k" - ena|bled.  (|
|00000420| 73 69 6e 63 65 20 77 65 | 27 76 65 20 65 6e 61 62 |since we|'ve enab|
|00000430| 6c 65 64 20 22 55 73 65 | 20 42 72 65 61 6b 20 52 |led "Use| Break R|
|00000440| 65 73 65 74 22 29 0d 21 | 0d 21 20 54 68 65 20 51 |eset").!|.! The Q|
|00000450| 75 69 63 6b 4d 61 69 6c | 20 6f 70 74 69 6f 6e 73 |uickMail| options|
|00000460| 20 28 74 68 72 6f 75 67 | 68 20 43 54 42 20 6d 6f | (throug|h CTB mo|
|00000470| 64 75 6c 65 3a 29 0d 21 | 20 44 6f 6e 27 74 20 61 |dule:).!| Don't a|
|00000480| 64 6a 75 73 74 20 73 70 | 65 65 64 20 28 73 69 6e |djust sp|eed (sin|
|00000490| 63 65 20 77 65 20 61 6c | 73 77 61 79 73 20 72 65 |ce we al|sways re|
|000004a0| 74 75 72 6e 20 22 43 4f | 4e 4e 45 43 54 20 31 39 |turn "CO|NNECT 19|
|000004b0| 32 30 30 22 29 0d 21 20 | 4c 69 6e 65 53 68 61 72 |200").! |LineShar|
|000004c0| 65 20 22 4f 70 74 69 6f | 6e 73 c9 22 20 66 6f 72 |e "Optio|ns." for|
|000004d0| 20 74 68 65 20 22 4d 61 | 69 6c 22 20 73 75 62 70 | the "Ma|il" subp|
|000004e0| 6f 72 74 3a 0d 21 20 22 | 52 65 73 65 74 73 20 50 |ort:.! "|Resets P|
|000004f0| 6f 72 74 22 20 2d 20 64 | 69 73 61 62 6c 65 64 2c |ort" - d|isabled,|
|00000500| 20 73 69 6e 63 65 20 74 | 68 65 20 43 54 42 20 74 | since t|he CTB t|
|00000510| 6f 6f 6c 20 75 73 65 73 | 20 74 6f 20 72 65 73 65 |ool uses| to rese|
|00000520| 74 20 69 74 0d 21 0d 21 | 0d 0d 21 20 2d 2d 2d 2d |t it.!.!|..! ----|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000550| 2d 2d 2d 2d 2d 2d 0d 21 | 20 52 65 73 65 74 74 69 |------.!| Resetti|
|00000560| 6e 67 20 74 68 65 20 6d | 6f 64 65 6d 3a 0d 21 20 |ng the m|odem:.! |
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 40 48 61 6e 67 |--------|--.@Hang|
|000005a0| 75 70 0d 20 20 53 65 74 | 54 72 69 65 73 20 32 0d |up.  Set|Tries 2.|
|000005b0| 20 20 46 6c 75 73 68 0d | 20 20 48 73 52 65 73 65 |  Flush.|  HsRese|
|000005c0| 74 20 30 2c 30 2c 31 37 | 2c 31 39 2c 30 2c 30 0d |t 0,0,17|,19,0,0.|
|000005d0| 21 0d 21 20 54 72 79 20 | 74 6f 20 63 61 74 63 68 |!.! Try |to catch|
|000005e0| 20 74 68 65 20 22 4f 4b | 22 20 61 6e 73 77 65 72 | the "OK|" answer|
|000005f0| 2c 20 75 73 65 20 74 68 | 65 20 45 73 63 61 70 65 |, use th|e Escape|
|00000600| 20 73 65 71 20 61 6e 64 | 20 44 54 52 20 74 72 61 | seq and| DTR tra|
|00000610| 6e 73 69 74 69 6f 6e 73 | 0d 21 20 74 6f 20 65 6e |nsitions|.! to en|
|00000620| 74 65 72 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 20 |ter the |command |
|00000630| 6d 6f 64 65 0d 21 0d 40 | 4c 61 62 65 6c 20 31 0d |mode.!.@|Label 1.|
|00000640| 20 20 6d 61 74 63 68 63 | 6c 72 0d 20 20 6d 61 74 |  matchc|lr.  mat|
|00000650| 63 68 73 74 72 20 31 20 | 32 20 22 4f 4b 5c 72 5c |chstr 1 |2 "OK\r\|
|00000660| 6e 22 0d 20 20 77 72 69 | 74 65 20 22 41 54 48 30 |n".  wri|te "ATH0|
|00000670| 26 46 5c 72 22 0d 20 20 | 6d 61 74 63 68 72 65 61 |&F\r".  |matchrea|
|00000680| 64 20 32 30 0d 20 20 57 | 72 69 74 65 20 22 2b 2b |d 20.  W|rite "++|
|00000690| 2b 22 0d 20 20 44 74 72 | 43 6c 65 61 72 0d 20 20 |+".  Dtr|Clear.  |
|000006a0| 70 61 75 73 65 20 31 30 | 0d 20 20 44 74 72 53 65 |pause 10|.  DtrSe|
|000006b0| 74 0d 21 0d 20 20 44 65 | 63 54 72 69 65 73 0d 20 |t.!.  De|cTries. |
|000006c0| 20 49 66 54 72 69 65 73 | 20 30 20 31 0d 21 0d 21 | IfTries| 0 1.!.!|
|000006d0| 20 4f 53 45 72 72 20 2d | 36 30 31 39 20 22 4d 6f | OSErr -|6019 "Mo|
|000006e0| 64 65 6d 20 65 72 72 6f | 72 20 2d 20 74 68 65 20 |dem erro|r - the |
|000006f0| 6d 6f 64 65 6d 20 69 73 | 20 6e 6f 74 20 72 65 73 |modem is| not res|
|00000700| 70 6f 6e 64 69 6e 67 22 | 0d 21 0d 20 20 65 78 69 |ponding"|.!.  exi|
|00000710| 74 20 2d 36 30 31 39 0d | 40 4c 61 62 65 6c 20 32 |t -6019.|@Label 2|
|00000720| 0d 20 20 77 72 69 74 65 | 20 22 41 54 2b 46 43 4c |.  write| "AT+FCL|
|00000730| 41 53 53 3d 30 5c 72 22 | 0d 20 20 4a 73 72 20 31 |ASS=0\r"|.  Jsr 1|
|00000740| 30 30 0d 20 20 77 72 69 | 74 65 20 22 41 54 2b 46 |00.  wri|te "AT+F|
|00000750| 41 41 3d 30 5c 72 22 0d | 20 20 4a 73 72 20 31 30 |AA=0\r".|  Jsr 10|
|00000760| 30 0d 20 20 65 78 69 74 | 20 30 0d 21 20 2d 2d 2d |0.  exit| 0.! ---|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 0d | 21 20 20 20 20 52 65 63 |-------.|!    Rec|
|000007a0| 65 69 76 69 6e 67 20 69 | 6e 63 6f 6d 69 6e 67 20 |eiving i|ncoming |
|000007b0| 63 61 6c 6c 73 0d 21 20 | 2d 2d 2d 2d 2d 2d 2d 2d |calls.! |--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 0d 40 41 4e 53 57 | 45 52 0d 40 4c 61 62 65 |--.@ANSW|ER.@Labe|
|000007f0| 6c 20 31 30 0d 21 0d 21 | 20 53 65 74 20 74 68 65 |l 10.!.!| Set the|
|00000800| 20 6d 6f 64 65 6d 20 70 | 72 65 66 65 72 72 65 64 | modem p|referred|
|00000810| 20 73 70 65 65 64 20 66 | 69 72 73 74 0d 21 0d 20 | speed f|irst.!. |
|00000820| 20 53 45 52 52 45 53 45 | 54 20 32 34 30 30 2c 30 | SERRESE|T 2400,0|
|00000830| 2c 38 2c 31 0d 20 20 4a | 73 72 20 38 30 0d 21 0d |,8,1.  J|sr 80.!.|
|00000840| 21 20 53 65 74 20 74 68 | 65 20 63 6f 6d 6d 6f 6e |! Set th|e common|
|00000850| 20 6f 70 74 69 6f 6e 73 | 0d 20 20 4a 73 72 20 37 | options|.  Jsr 7|
|00000860| 30 0d 21 0d 21 20 53 65 | 74 20 74 68 65 20 63 6f |0.!.! Se|t the co|
|00000870| 6d 6d 75 6e 69 63 61 74 | 69 6f 6e 20 6f 70 74 69 |mmunicat|ion opti|
|00000880| 6f 6e 73 3a 0d 21 20 45 | 78 74 65 6e 64 65 64 20 |ons:.! E|xtended |
|00000890| 72 65 73 70 6f 6e 73 65 | 20 73 65 74 0d 21 20 45 |response| set.! E|
|000008a0| 6e 61 62 6c 65 20 4d 4e | 50 20 66 6f 72 20 54 65 |nable MN|P for Te|
|000008b0| 6c 65 46 69 6e 64 65 72 | 0d 21 20 58 6f 6e 2f 58 |leFinder|.! Xon/X|
|000008c0| 6f 66 66 20 66 6c 6f 77 | 20 63 6f 6e 74 72 6f 6c |off flow| control|
|000008d0| 20 28 66 6f 72 20 46 61 | 78 29 0d 21 20 46 61 78 | (for Fa|x).! Fax|
|000008e0| 20 6d 6f 64 65 20 28 74 | 6f 20 65 6e 61 62 6c 65 | mode (t|o enable|
|000008f0| 20 66 61 78 20 74 75 6e | 69 6e 67 20 63 6f 6d 6d | fax tun|ing comm|
|00000900| 61 6e 64 73 29 0d 21 0d | 40 4c 61 62 65 6c 20 31 |ands).!.|@Label 1|
|00000910| 31 0d 21 20 23 23 23 23 | 20 53 65 74 74 69 6e 67 |1.! ####| Setting|
|00000920| 73 20 23 23 23 23 0d 20 | 20 57 72 69 74 65 20 22 |s ####. | Write "|
|00000930| 41 54 58 34 5c 5c 4e 33 | 5c 5c 51 31 26 53 31 2b |ATX4\\N3|\\Q1&S1+|
|00000940| 46 43 4c 41 53 53 3d 32 | 5c 72 22 0d 20 20 4a 73 |FCLASS=2|\r".  Js|
|00000950| 72 20 31 30 30 0d 21 0d | 21 20 53 65 74 20 74 68 |r 100.!.|! Set th|
|00000960| 65 20 22 77 6f 72 6b 22 | 20 73 70 65 65 64 0d 21 |e "work"| speed.!|
|00000970| 0d 40 4c 61 62 65 6c 20 | 31 32 0d 20 20 53 45 52 |.@Label |12.  SER|
|00000980| 52 45 53 45 54 20 31 39 | 32 30 30 2c 30 2c 38 2c |RESET 19|200,0,8,|
|00000990| 31 0d 20 20 4a 73 72 20 | 38 30 0d 21 0d 21 20 53 |1.  Jsr |80.!.! S|
|000009a0| 65 74 20 46 61 78 20 70 | 61 72 61 6d 65 74 65 72 |et Fax p|arameter|
|000009b0| 73 3a 20 4c 49 44 2c 20 | 44 43 43 2c 42 4f 52 0d |s: LID, |DCC,BOR.|
|000009c0| 21 0d 20 20 57 72 69 74 | 65 20 22 41 54 2b 46 4c |!.  Writ|e "AT+FL|
|000009d0| 49 44 3d 5c 22 53 74 61 | 6c 6b 65 72 5f 47 6d 62 |ID=\"Sta|lker_Gmb|
|000009e0| 48 5c 22 5c 72 22 0d 20 | 20 4a 73 72 20 31 30 30 |H\"\r". | Jsr 100|
|000009f0| 0d 20 20 57 72 69 74 65 | 20 22 41 54 2b 46 44 43 |.  Write| "AT+FDC|
|00000a00| 43 3d 31 2c 33 2c 30 2c | 32 2c 30 2c 30 2c 30 2c |C=1,3,0,|2,0,0,0,|
|00000a10| 30 5c 72 22 0d 20 20 4a | 73 72 20 31 30 30 0d 20 |0\r".  J|sr 100. |
|00000a20| 20 57 72 69 74 65 20 22 | 41 54 2b 46 42 4f 52 3d | Write "|AT+FBOR=|
|00000a30| 31 5c 72 22 0d 20 20 4a | 73 72 20 31 30 30 0d 21 |1\r".  J|sr 100.!|
|00000a40| 0d 21 20 41 6c 6c 6f 77 | 20 6d 6f 64 65 6d 20 74 |.! Allow| modem t|
|00000a50| 6f 20 72 65 63 65 69 76 | 65 20 66 61 78 20 6d 65 |o receiv|e fax me|
|00000a60| 73 73 61 67 65 73 0d 21 | 0d 20 20 57 72 69 74 65 |ssages.!|.  Write|
|00000a70| 20 22 41 54 2b 46 43 52 | 3d 31 5c 72 22 0d 20 20 | "AT+FCR|=1\r".  |
|00000a80| 4a 73 72 20 31 30 30 0d | 21 0d 21 20 54 65 6c 6c |Jsr 100.|!.! Tell|
|00000a90| 20 74 68 65 20 6d 6f 64 | 65 6d 20 74 6f 20 64 65 | the mod|em to de|
|00000aa0| 74 65 72 6d 69 6e 65 20 | 74 68 65 20 74 79 70 65 |termine |the type|
|00000ab0| 20 6f 66 20 74 68 65 20 | 69 6e 63 6f 6d 69 6e 67 | of the |incoming|
|00000ac0| 20 63 61 6c 6c 0d 21 20 | 46 65 74 63 68 20 74 68 | call.! |Fetch th|
|00000ad0| 65 20 74 75 62 65 20 61 | 66 74 65 72 20 4e 20 72 |e tube a|fter N r|
|00000ae0| 69 6e 67 73 2c 20 77 68 | 65 72 65 20 4e 20 68 61 |ings, wh|ere N ha|
|00000af0| 73 20 62 65 65 6e 20 73 | 65 74 20 69 6e 20 74 68 |s been s|et in th|
|00000b00| 65 20 63 6f 6e 74 72 6f | 6c 20 70 61 6e 65 6c 20 |e contro|l panel |
|00000b10| 28 5e 34 29 0d 21 0d 20 | 20 57 72 69 74 65 20 22 |(^4).!. | Write "|
|00000b20| 41 54 53 30 3d 5e 34 2b | 46 41 41 3d 31 5c 72 22 |ATS0=^4+|FAA=1\r"|
|00000b30| 0d 20 20 4a 73 72 20 31 | 30 30 0d 21 0d 21 20 45 |.  Jsr 1|00.!.! E|
|00000b40| 76 65 72 79 74 68 69 6e | 67 20 69 73 20 72 65 61 |verythin|g is rea|
|00000b50| 64 79 20 2d 20 6c 65 74 | 27 73 20 73 69 74 20 61 |dy - let|'s sit a|
|00000b60| 6e 64 20 77 61 69 74 20 | 66 6f 72 20 61 20 63 61 |nd wait |for a ca|
|00000b70| 6c 6c 0d 21 20 57 65 27 | 6c 6c 20 77 61 69 74 20 |ll.! We'|ll wait |
|00000b80| 66 6f 72 20 32 20 6d 69 | 6e 75 74 65 73 2c 20 74 |for 2 mi|nutes, t|
|00000b90| 68 65 6e 20 72 65 69 6e | 69 74 69 61 74 65 20 74 |hen rein|itiate t|
|00000ba0| 68 65 20 6d 6f 64 65 6d | 0d 40 4c 61 62 65 6c 20 |he modem|.@Label |
|00000bb0| 32 30 0d 20 20 4d 61 74 | 63 68 43 6c 72 0d 20 20 |20.  Mat|chClr.  |
|00000bc0| 6d 61 74 63 68 73 74 72 | 20 31 20 32 30 20 22 52 |matchstr| 1 20 "R|
|00000bd0| 49 4e 47 5c 72 22 0d 20 | 20 6d 61 74 63 68 73 74 |ING\r". | matchst|
|00000be0| 72 20 32 20 32 31 20 22 | 43 4f 4e 4e 45 43 54 22 |r 2 21 "|CONNECT"|
|00000bf0| 0d 20 20 6d 61 74 63 68 | 73 74 72 20 31 33 20 33 |.  match|str 13 3|
|00000c00| 30 20 22 2b 46 43 4f 4e | 22 0d 20 20 6d 61 74 63 |0 "+FCON|".  matc|
|00000c10| 68 73 74 72 20 31 34 20 | 31 30 20 22 5c 72 5c 6e |hstr 14 |10 "\r\n|
|00000c20| 4e 4f 20 20 22 0d 20 20 | 6d 61 74 63 68 73 74 72 |NO  ".  |matchstr|
|00000c30| 20 31 35 20 31 30 20 22 | 42 55 53 59 22 0d 20 20 | 15 10 "|BUSY".  |
|00000c40| 4d 61 74 63 68 72 65 61 | 64 20 31 32 30 30 0d 20 |Matchrea|d 1200. |
|00000c50| 20 6a 75 6d 70 20 31 30 | 0d 21 0d 21 20 44 61 74 | jump 10|.!.! Dat|
|00000c60| 61 20 63 6f 6e 6e 65 63 | 74 69 6f 6e 20 68 61 73 |a connec|tion has|
|00000c70| 20 62 65 65 6e 20 65 73 | 74 61 62 6c 69 73 68 65 | been es|tablishe|
|00000c80| 64 20 28 77 65 20 72 65 | 61 64 20 22 43 4f 4e 4e |d (we re|ad "CONN|
|00000c90| 45 43 54 22 29 0d 21 20 | 52 65 6d 6f 76 65 20 65 |ECT").! |Remove e|
|00000ca0| 76 65 72 79 74 68 69 6e | 67 20 74 69 6c 6c 20 22 |verythin|g till "|
|00000cb0| 5c 72 5c 6e 22 20 66 72 | 6f 6d 20 74 68 65 20 62 |\r\n" fr|om the b|
|00000cc0| 75 66 66 65 72 0d 40 4c | 61 62 65 6c 20 32 31 0d |uffer.@L|abel 21.|
|00000cd0| 20 20 4d 61 74 63 68 43 | 6c 72 0d 20 20 4d 61 74 |  MatchC|lr.  Mat|
|00000ce0| 63 68 53 74 72 20 31 20 | 32 32 20 22 5c 72 5c 6e |chStr 1 |22 "\r\n|
|00000cf0| 22 0d 20 20 4d 61 74 63 | 68 52 65 61 64 20 31 30 |".  Matc|hRead 10|
|00000d00| 0d 20 20 65 78 69 74 20 | 2d 36 30 31 39 0d 40 4c |.  exit |-6019.@L|
|00000d10| 61 62 65 6c 20 32 32 0d | 21 0d 21 20 44 69 73 70 |abel 22.|!.! Disp|
|00000d20| 6c 61 79 20 6f 75 72 20 | 6d 65 6e 75 0d 21 20 40 |lay our |menu.! @|
|00000d30| 40 40 0d 20 20 57 72 69 | 74 65 20 22 5c 72 5c 6e |@@.  Wri|te "\r\n|
|00000d40| 5c 6e 5c 6e 5c 6e 57 65 | 6c 63 6f 6d 65 20 74 6f |\n\n\nWe|lcome to|
|00000d50| 20 53 74 61 6c 6b 65 72 | 20 4d 75 6c 74 69 2d 53 | Stalker| Multi-S|
|00000d60| 65 72 76 69 63 65 20 48 | 6f 73 74 21 5c 72 5c 6e |ervice H|ost!\r\n|
|00000d70| 22 0d 20 20 57 72 69 74 | 65 20 22 5c 72 5c 6e 50 |".  Writ|e "\r\nP|
|00000d80| 72 65 73 73 20 61 20 6b | 65 79 20 74 6f 20 63 6f |ress a k|ey to co|
|00000d90| 6e 6e 65 63 74 20 74 6f | 3a 5c 72 5c 6e 22 0d 20 |nnect to|:\r\n". |
|00000da0| 20 57 72 69 74 65 20 22 | 4d 20 2d 20 54 65 6c 65 | Write "|M - Tele|
|00000db0| 46 69 6e 64 65 72 28 74 | 6d 29 20 42 42 53 5c 72 |Finder(t|m) BBS\r|
|00000dc0| 5c 6e 22 0d 20 20 57 72 | 69 74 65 20 22 51 20 2d |\n".  Wr|ite "Q -|
|00000dd0| 20 51 75 69 63 6b 4d 61 | 69 6c 28 74 6d 29 20 6d | QuickMa|il(tm) m|
|00000de0| 61 69 6c 2d 73 65 72 76 | 65 72 5c 72 5c 6e 22 0d |ail-serv|er\r\n".|
|00000df0| 20 20 57 72 69 74 65 20 | 22 3d 3e 22 0d 20 20 4d |  Write |"=>".  M|
|00000e00| 61 74 63 68 43 6c 72 0d | 20 20 4d 61 74 63 68 53 |atchClr.|  MatchS|
|00000e10| 74 72 20 31 20 32 34 20 | 22 4d 22 0d 20 20 4d 61 |tr 1 24 |"M".  Ma|
|00000e20| 74 63 68 53 74 72 20 32 | 20 32 34 20 22 6d 22 0d |tchStr 2| 24 "m".|
|00000e30| 20 20 4d 61 74 63 68 53 | 74 72 20 33 20 32 35 20 |  MatchS|tr 3 25 |
|00000e40| 22 51 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 34 |"Q".  Ma|tchStr 4|
|00000e50| 20 32 35 20 22 71 22 0d | 20 20 4d 61 74 63 68 53 | 25 "q".|  MatchS|
|00000e60| 74 72 20 35 20 32 33 20 | 22 5c 72 22 0d 20 20 4d |tr 5 23 |"\r".  M|
|00000e70| 61 74 63 68 52 65 61 64 | 20 31 35 30 0d 40 4c 61 |atchRead| 150.@La|
|00000e80| 62 65 6c 20 32 33 0d 20 | 20 65 78 69 74 20 2d 36 |bel 23. | exit -6|
|00000e90| 30 31 39 0d 21 0d 21 20 | 45 6d 75 6c 61 74 65 20 |019.!.! |Emulate |
|00000ea0| 74 68 65 20 43 4f 4e 4e | 45 43 54 20 31 39 32 30 |the CONN|ECT 1920|
|00000eb0| 30 20 6d 65 73 73 61 67 | 65 0d 21 20 41 74 74 61 |0 messag|e.! Atta|
|00000ec0| 63 68 20 74 68 65 20 22 | 54 46 22 20 73 75 62 50 |ch the "|TF" subP|
|00000ed0| 6f 72 74 0d 21 20 54 68 | 65 20 6c 65 74 74 65 72 |ort.! Th|e letter|
|00000ee0| 20 22 4d 22 20 69 73 20 | 61 6c 73 6f 20 70 75 74 | "M" is |also put|
|00000ef0| 20 69 6e 74 6f 20 74 68 | 65 20 62 75 66 66 65 72 | into th|e buffer|
|00000f00| 2c 0d 21 20 73 69 6e 63 | 65 20 69 74 20 63 6f 75 |,.! sinc|e it cou|
|00000f10| 6c 64 20 62 65 20 70 61 | 72 74 20 6f 66 20 54 65 |ld be pa|rt of Te|
|00000f20| 6c 65 46 69 6e 64 65 72 | 20 22 4d 4d 4d 22 20 27 |leFinder| "MMM" '|
|00000f30| 65 6e 74 72 79 20 6d 61 | 72 6b 27 0d 21 0d 40 4c |entry ma|rk'.!.@L|
|00000f40| 61 62 65 6c 20 32 34 0d | 20 20 57 72 69 74 65 20 |abel 24.|  Write |
|00000f50| 22 4d 5c 72 5c 6e 5c 72 | 5c 6e 43 6f 6e 6e 65 63 |"M\r\n\r|\nConnec|
|00000f60| 74 69 6e 67 20 74 6f 20 | 54 65 6c 65 46 69 6e 64 |ting to |TeleFind|
|00000f70| 65 72 2e 2e 2e 5c 72 5c | 6e 22 0d 20 20 51 75 65 |er...\r\|n".  Que|
|00000f80| 75 65 49 6e 70 75 74 20 | 22 5c 72 5c 32 37 43 4f |ueInput |"\r\27CO|
|00000f90| 4e 4e 45 43 54 20 31 39 | 32 30 30 5c 72 5c 32 37 |NNECT 19|200\r\27|
|00000fa0| 4d 22 0d 20 20 41 74 74 | 61 63 68 20 22 54 46 22 |M".  Att|ach "TF"|
|00000fb0| 20 28 44 54 52 2c 42 52 | 45 41 4b 2c 52 45 53 45 | (DTR,BR|EAK,RESE|
|00000fc0| 54 2c 45 53 43 41 50 45 | 2c 49 44 4c 45 4c 49 4d |T,ESCAPE|,IDLELIM|
|00000fd0| 49 54 3d 36 30 29 0d 21 | 0d 21 20 45 6d 75 6c 61 |IT=60).!|.! Emula|
|00000fe0| 74 65 20 74 68 65 20 43 | 4f 4e 4e 45 43 54 20 31 |te the C|ONNECT 1|
|00000ff0| 39 32 30 30 20 6d 65 73 | 73 61 67 65 0d 21 20 41 |9200 mes|sage.! A|
|00001000| 74 74 61 63 68 20 74 68 | 65 20 22 4d 61 69 6c 22 |ttach th|e "Mail"|
|00001010| 20 73 75 62 50 6f 72 74 | 0d 21 20 54 68 65 20 73 | subPort|.! The s|
|00001020| 79 6d 62 6f 6c 20 22 5c | 72 22 20 69 73 20 61 6c |ymbol "\|r" is al|
|00001030| 73 6f 20 70 75 74 20 69 | 6e 74 6f 20 74 68 65 20 |so put i|nto the |
|00001040| 62 75 66 66 65 72 2c 0d | 21 20 74 6f 20 66 6f 72 |buffer,.|! to for|
|00001050| 63 65 20 51 75 69 63 6b | 4d 61 69 6c 20 74 6f 20 |ce Quick|Mail to |
|00001060| 73 74 61 72 74 20 74 68 | 65 20 73 65 73 73 69 6f |start th|e sessio|
|00001070| 6e 0d 21 0d 40 4c 61 62 | 65 6c 20 32 35 0d 20 20 |n.!.@Lab|el 25.  |
|00001080| 57 72 69 74 65 20 22 51 | 5c 72 5c 6e 5c 72 5c 6e |Write "Q|\r\n\r\n|
|00001090| 43 6f 6e 6e 65 63 74 69 | 6e 67 20 74 6f 20 51 75 |Connecti|ng to Qu|
|000010a0| 69 63 6b 4d 61 69 6c 2e | 2e 2e 5c 72 5c 6e 22 0d |ickMail.|..\r\n".|
|000010b0| 20 20 51 75 65 75 65 49 | 6e 70 75 74 20 22 5c 72 |  QueueI|nput "\r|
|000010c0| 5c 6e 43 4f 4e 4e 45 43 | 54 20 31 39 32 30 30 5c |\nCONNEC|T 19200\|
|000010d0| 72 5c 6e 5c 72 22 0d 20 | 20 41 74 74 61 63 68 20 |r\n\r". | Attach |
|000010e0| 22 4d 61 69 6c 22 20 28 | 44 54 52 2c 45 53 43 41 |"Mail" (|DTR,ESCA|
|000010f0| 50 45 29 0d 21 0d 21 20 | 46 61 78 20 63 6f 6e 6e |PE).!.! |Fax conn|
|00001100| 65 63 74 69 6f 6e 20 68 | 61 73 20 62 65 65 6e 20 |ection h|as been |
|00001110| 65 73 74 61 62 6c 69 73 | 68 65 64 20 28 77 65 20 |establis|hed (we |
|00001120| 72 65 61 64 20 22 2b 46 | 43 4f 4e 22 29 0d 21 20 |read "+F|CON").! |
|00001130| 50 75 74 20 74 68 65 20 | 2b 46 43 4f 4e 20 62 61 |Put the |+FCON ba|
|00001140| 63 6b 20 74 6f 20 74 68 | 65 20 62 75 66 66 65 72 |ck to th|e buffer|
|00001150| 2c 0d 21 20 50 75 74 20 | 74 68 65 20 22 52 49 4e |,.! Put |the "RIN|
|00001160| 47 22 20 62 65 66 6f 72 | 65 20 74 68 65 20 22 2b |G" befor|e the "+|
|00001170| 46 43 4f 4e 22 0d 21 20 | 41 74 74 61 63 68 20 74 |FCON".! |Attach t|
|00001180| 68 65 20 22 46 61 78 22 | 20 73 75 62 50 6f 72 74 |he "Fax"| subPort|
|00001190| 0d 21 0d 40 4c 61 62 65 | 6c 20 33 30 0d 20 20 51 |.!.@Labe|l 30.  Q|
|000011a0| 75 65 75 65 49 6e 70 75 | 74 20 22 5c 72 5c 6e 52 |ueueInpu|t "\r\nR|
|000011b0| 49 4e 47 5c 72 5c 6e 5c | 72 5c 6e 2b 46 43 4f 4e |ING\r\n\|r\n+FCON|
|000011c0| 22 0d 20 20 41 74 74 61 | 63 68 20 22 46 61 78 22 |".  Atta|ch "Fax"|
|000011d0| 20 28 44 54 52 2c 52 45 | 53 45 54 2c 45 53 43 41 | (DTR,RE|SET,ESCA|
|000011e0| 50 45 2c 49 44 4c 45 4c | 69 6d 69 74 3d 33 30 29 |PE,IDLEL|imit=30)|
|000011f0| 0d 21 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.! -----|--------|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 21 20 |--------|-----.! |
|00001220| 4f 72 69 67 69 6e 61 74 | 69 6e 67 20 61 20 63 61 |Originat|ing a ca|
|00001230| 6c 6c 20 74 68 72 6f 75 | 67 68 20 74 68 65 20 22 |ll throu|gh the "|
|00001240| 46 61 78 22 20 73 75 62 | 50 6f 72 74 0d 21 20 2d |Fax" sub|Port.! -|
|00001250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 40 4f 52 49 47 49 |--------|-.@ORIGI|
|00001280| 4e 41 54 45 20 22 46 61 | 78 22 0d 21 0d 21 20 53 |NATE "Fa|x".!.! S|
|00001290| 65 74 20 74 68 65 20 22 | 46 61 78 22 20 73 70 65 |et the "|Fax" spe|
|000012a0| 65 64 0d 21 0d 20 20 53 | 45 52 52 45 53 45 54 20 |ed.!.  S|ERRESET |
|000012b0| 31 39 32 30 30 2c 30 2c | 38 2c 31 0d 20 20 4a 73 |19200,0,|8,1.  Js|
|000012c0| 72 20 38 30 0d 21 0d 21 | 20 53 65 74 20 74 68 65 |r 80.!.!| Set the|
|000012d0| 20 63 6f 6d 6d 6f 6e 20 | 6f 70 74 69 6f 6e 73 0d | common |options.|
|000012e0| 21 0d 20 20 4a 73 72 20 | 37 30 0d 21 0d 21 20 53 |!.  Jsr |70.!.! S|
|000012f0| 65 74 20 74 68 65 20 46 | 61 78 20 6d 6f 64 65 0d |et the F|ax mode.|
|00001300| 21 0d 20 20 57 72 69 74 | 65 20 22 41 54 2b 46 43 |!.  Writ|e "AT+FC|
|00001310| 4c 41 53 53 3d 32 5c 72 | 22 0d 20 20 4a 73 72 20 |LASS=2\r|".  Jsr |
|00001320| 31 30 30 0d 21 0d 21 20 | 4e 6f 77 20 65 6d 69 74 |100.!.! |Now emit|
|00001330| 20 61 6c 6c 20 63 6f 6d | 6d 61 6e 64 73 20 74 68 | all com|mands th|
|00001340| 61 74 20 74 68 65 20 61 | 70 70 6c 69 63 61 74 69 |at the a|pplicati|
|00001350| 6f 6e 20 68 61 73 20 73 | 65 6e 74 20 74 6f 20 74 |on has s|ent to t|
|00001360| 68 61 74 20 70 6f 72 74 | 2c 0d 21 20 50 72 65 70 |hat port|,.! Prep|
|00001370| 61 72 65 20 74 6f 20 72 | 65 63 65 69 76 65 20 61 |are to r|eceive a|
|00001380| 6c 6c 20 65 72 72 6f 72 | 20 72 65 73 75 6c 74 20 |ll error| result |
|00001390| 63 6f 64 65 73 0d 21 0d | 21 45 6d 69 74 43 6c 65 |codes.!.|!EmitCle|
|000013a0| 61 72 20 22 53 22 2c 22 | 53 22 2c 22 53 22 2c 22 |ar "S","|S","S","|
|000013b0| 26 22 2c 22 26 22 2c 22 | 5c 5c 22 2c 22 5c 5c 22 |&","&","|\\","\\"|
|000013c0| 0d 20 20 4a 73 72 20 36 | 30 0d 21 0d 21 20 50 72 |.  Jsr 6|0.!.! Pr|
|000013d0| 65 70 61 72 65 20 74 6f | 20 63 6f 6e 6e 65 63 74 |epare to| connect|
|000013e0| 0d 21 0d 20 20 4a 73 72 | 20 39 30 0d 20 20 4d 61 |.!.  Jsr| 90.  Ma|
|000013f0| 74 63 68 53 74 72 20 31 | 20 35 31 20 22 5c 72 5c |tchStr 1| 51 "\r\|
|00001400| 6e 2b 46 43 4f 4e 22 0d | 20 20 48 73 52 65 73 65 |n+FCON".|  HsRese|
|00001410| 74 20 2a 0d 20 20 57 72 | 69 74 65 20 22 41 54 44 |t *.  Wr|ite "ATD|
|00001420| 5e 31 5c 72 22 0d 20 20 | 4d 61 74 63 68 52 65 61 |^1\r".  |MatchRea|
|00001430| 64 20 37 30 30 0d 20 20 | 57 72 69 74 65 20 22 5c |d 700.  |Write "\|
|00001440| 72 22 0d 20 20 45 78 69 | 74 20 2d 36 30 31 39 0d |r".  Exi|t -6019.|
|00001450| 40 4c 41 42 45 4c 20 35 | 31 0d 20 20 51 75 65 75 |@LABEL 5|1.  Queu|
|00001460| 65 49 6e 70 75 74 20 22 | 5c 72 5c 6e 2b 46 43 4f |eInput "|\r\n+FCO|
|00001470| 4e 22 0d 20 20 41 74 74 | 61 63 68 20 22 46 61 78 |N".  Att|ach "Fax|
|00001480| 22 20 28 44 54 52 2c 52 | 45 53 45 54 2c 45 53 43 |" (DTR,R|ESET,ESC|
|00001490| 41 50 45 2c 49 44 4c 45 | 4c 69 6d 69 74 3d 33 30 |APE,IDLE|Limit=30|
|000014a0| 29 0d 21 0d 21 20 54 68 | 69 73 20 73 65 63 74 69 |).!.! Th|is secti|
|000014b0| 6f 6e 20 65 6d 69 74 73 | 20 61 6c 6c 20 6d 6f 64 |on emits| all mod|
|000014c0| 65 6d 20 63 6f 6d 6d 61 | 6e 64 73 20 73 65 6e 74 |em comma|nds sent|
|000014d0| 20 62 79 20 74 68 65 20 | 63 6c 69 65 6e 74 20 61 | by the |client a|
|000014e0| 70 70 6c 69 63 61 74 69 | 6f 6e 0d 21 20 46 6f 72 |pplicati|on.! For|
|000014f0| 20 65 61 63 68 20 73 65 | 74 20 6f 66 20 63 6f 6d | each se|t of com|
|00001500| 6d 61 6e 64 73 20 74 68 | 65 20 22 4f 4b 22 20 61 |mands th|e "OK" a|
|00001510| 6e 73 77 65 72 20 69 73 | 20 61 77 61 69 74 65 64 |nswer is| awaited|
|00001520| 0d 21 0d 40 4c 61 62 65 | 6c 20 36 30 0d 20 20 45 |.!.@Labe|l 60.  E|
|00001530| 6d 69 74 53 74 61 72 74 | 0d 40 4c 61 62 65 6c 20 |mitStart|.@Label |
|00001540| 36 31 0d 20 20 45 6d 69 | 74 43 6f 6d 6d 61 6e 64 |61.  Emi|tCommand|
|00001550| 20 36 32 0d 20 20 4a 73 | 72 20 31 30 30 0d 20 20 | 62.  Js|r 100.  |
|00001560| 4a 75 6d 70 20 36 31 0d | 40 4c 61 62 65 6c 20 36 |Jump 61.|@Label 6|
|00001570| 32 0d 20 20 72 65 74 75 | 72 6e 0d 21 0d 21 20 54 |2.  retu|rn.!.! T|
|00001580| 68 69 73 20 73 65 63 74 | 69 6f 6e 20 69 6e 69 74 |his sect|ion init|
|00001590| 69 61 74 65 73 20 74 68 | 65 20 6d 6f 64 65 6d 20 |iates th|e modem |
|000015a0| 62 65 66 6f 72 65 20 41 | 4e 53 57 45 52 20 61 6e |before A|NSWER an|
|000015b0| 64 20 4f 52 49 47 49 4e | 41 54 45 73 3a 0d 21 20 |d ORIGIN|ATEs:.! |
|000015c0| 66 61 63 74 6f 72 79 20 | 73 65 74 74 69 6e 67 73 |factory |settings|
|000015d0| 20 2b 20 73 70 65 61 6b | 65 72 20 63 6f 6e 74 72 | + speak|er contr|
|000015e0| 6f 6c 20 2b 0d 21 20 72 | 65 73 65 74 20 6f 6e 20 |ol +.! r|eset on |
|000015f0| 44 74 72 20 64 72 6f 70 | 20 2b 20 44 43 44 20 76 |Dtr drop| + DCD v|
|00001600| 61 6c 69 64 0d 21 20 56 | 65 72 62 61 6c 20 72 65 |alid.! V|erbal re|
|00001610| 73 70 6f 6e 73 65 73 20 | 6d 6f 64 65 2c 20 6e 6f |sponses |mode, no|
|00001620| 20 65 63 68 6f 20 0d 21 | 20 53 65 74 20 26 53 31 | echo .!| Set &S1|
|00001630| 20 28 44 53 52 29 20 69 | 6e 20 63 61 73 65 20 74 | (DSR) i|n case t|
|00001640| 68 65 20 63 61 62 6c 65 | 20 63 6f 6e 6e 65 63 74 |he cable| connect|
|00001650| 73 20 74 68 65 20 44 53 | 52 20 73 69 67 6e 61 6c |s the DS|R signal|
|00001660| 20 77 69 74 68 20 74 68 | 65 20 43 54 53 20 70 69 | with th|e CTS pi|
|00001670| 6e 0d 21 0d 40 4c 61 62 | 65 6c 20 37 30 0d 20 20 |n.!.@Lab|el 70.  |
|00001680| 57 72 69 74 65 20 22 41 | 54 4d 5e 32 4c 5e 33 26 |Write "A|TM^2L^3&|
|00001690| 44 32 26 43 31 56 31 45 | 30 5c 72 22 0d 20 20 4a |D2&C1V1E|0\r".  J|
|000016a0| 73 72 20 31 30 30 0d 20 | 20 72 65 74 75 72 6e 20 |sr 100. | return |
|000016b0| 0d 21 0d 21 20 54 68 69 | 73 20 73 65 63 74 69 6f |.!.! Thi|s sectio|
|000016c0| 6e 20 73 79 6e 63 72 6f | 6e 69 7a 65 20 74 68 65 |n syncro|nize the|
|000016d0| 20 6d 6f 64 65 6d 20 61 | 66 74 65 72 20 74 68 65 | modem a|fter the|
|000016e0| 20 73 65 72 69 61 6c 20 | 70 6f 72 74 20 73 70 65 | serial |port spe|
|000016f0| 65 64 20 73 77 69 74 63 | 68 69 6e 67 0d 21 0d 40 |ed switc|hing.!.@|
|00001700| 4c 61 62 65 6c 20 38 30 | 0d 20 20 43 68 72 44 65 |Label 80|.  ChrDe|
|00001710| 6c 61 79 20 31 0d 20 20 | 57 72 69 74 65 20 22 41 |lay 1.  |Write "A|
|00001720| 54 5c 72 22 0d 20 20 43 | 68 72 44 65 6c 61 79 20 |T\r".  C|hrDelay |
|00001730| 30 0d 20 20 4a 73 72 20 | 31 30 30 0d 20 20 72 65 |0.  Jsr |100.  re|
|00001740| 74 75 72 6e 0d 21 0d 21 | 20 50 72 65 70 61 72 65 |turn.!.!| Prepare|
|00001750| 20 74 6f 20 72 65 63 65 | 69 76 65 20 65 72 72 6f | to rece|ive erro|
|00001760| 72 20 72 65 73 75 6c 74 | 20 63 6f 64 65 73 0d 21 |r result| codes.!|
|00001770| 0d 40 4c 61 62 65 6c 20 | 39 30 0d 20 20 4d 61 74 |.@Label |90.  Mat|
|00001780| 63 68 43 6c 72 0d 20 20 | 4d 61 74 63 68 53 74 72 |chClr.  |MatchStr|
|00001790| 20 32 20 39 31 20 22 4e | 4f 20 44 49 41 4c 54 4f | 2 91 "N|O DIALTO|
|000017a0| 4e 45 5c 72 5c 6e 22 0d | 20 20 4d 61 74 63 68 53 |NE\r\n".|  MatchS|
|000017b0| 74 72 20 33 20 39 32 20 | 22 42 55 53 59 5c 72 5c |tr 3 92 |"BUSY\r\|
|000017c0| 6e 22 0d 20 20 4d 61 74 | 63 68 53 74 72 20 34 20 |n".  Mat|chStr 4 |
|000017d0| 39 33 20 22 4e 4f 20 43 | 41 52 52 49 45 52 5c 72 |93 "NO C|ARRIER\r|
|000017e0| 5c 6e 22 0d 20 20 4d 61 | 74 63 68 53 74 72 20 35 |\n".  Ma|tchStr 5|
|000017f0| 20 39 34 20 22 4e 4f 20 | 41 4e 53 57 45 52 5c 72 | 94 "NO |ANSWER\r|
|00001800| 5c 6e 22 0d 20 20 72 65 | 74 75 72 6e 0d 40 4c 61 |\n".  re|turn.@La|
|00001810| 62 65 6c 20 39 31 0d 20 | 20 65 78 69 74 20 2d 36 |bel 91. | exit -6|
|00001820| 30 32 30 0d 40 4c 61 62 | 65 6c 20 39 32 0d 20 20 |020.@Lab|el 92.  |
|00001830| 65 78 69 74 20 2d 36 30 | 32 32 0d 40 4c 61 62 65 |exit -60|22.@Labe|
|00001840| 6c 20 39 33 0d 20 20 65 | 78 69 74 20 2d 36 30 32 |l 93.  e|xit -602|
|00001850| 31 0d 40 4c 61 62 65 6c | 20 39 34 0d 20 20 65 78 |1.@Label| 94.  ex|
|00001860| 69 74 20 2d 36 30 32 33 | 0d 21 0d 21 20 50 72 6f |it -6023|.!.! Pro|
|00001870| 63 65 73 73 69 6e 67 20 | 74 68 65 20 41 54 20 63 |cessing |the AT c|
|00001880| 6f 6d 6d 61 6e 64 3a 0d | 21 20 4f 4b 20 2d 3e 20 |ommand:.|! OK -> |
|00001890| 70 72 6f 63 65 65 64 0d | 21 20 45 52 52 4f 52 20 |proceed.|! ERROR |
|000018a0| 6f 72 20 54 69 6d 65 4f | 75 74 20 2d 3e 65 78 69 |or TimeO|ut ->exi|
|000018b0| 74 20 2d 36 30 31 39 0d | 21 20 49 74 20 63 61 6e |t -6019.|! It can|
|000018c0| 20 62 65 20 63 61 6c 6c | 65 64 20 41 46 54 45 52 | be call|ed AFTER|
|000018d0| 20 74 68 65 20 22 57 72 | 69 74 65 22 20 63 6f 6d | the "Wr|ite" com|
|000018e0| 6d 61 6e 64 2c 20 73 69 | 6e 63 65 20 4c 69 6e 65 |mand, si|nce Line|
|000018f0| 53 68 61 72 65 20 62 75 | 66 66 65 72 73 20 69 6e |Share bu|ffers in|
|00001900| 70 75 74 0d 21 0d 40 4c | 61 62 65 6c 20 31 30 30 |put.!.@L|abel 100|
|00001910| 0d 20 20 4d 61 74 63 68 | 43 6c 72 0d 20 20 4d 61 |.  Match|Clr.  Ma|
|00001920| 74 63 68 53 74 72 20 31 | 20 31 30 32 20 22 5c 72 |tchStr 1| 102 "\r|
|00001930| 5c 6e 4f 4b 5c 72 5c 6e | 22 0d 20 20 4d 61 74 63 |\nOK\r\n|".  Matc|
|00001940| 68 53 74 72 20 32 20 31 | 30 31 20 22 5c 72 5c 6e |hStr 2 1|01 "\r\n|
|00001950| 45 52 52 4f 52 5c 72 5c | 6e 22 0d 20 20 4d 61 74 |ERROR\r\|n".  Mat|
|00001960| 63 68 52 65 61 64 20 32 | 30 0d 40 4c 61 62 65 6c |chRead 2|0.@Label|
|00001970| 20 31 30 31 0d 20 20 45 | 78 69 74 20 2d 36 30 31 | 101.  E|xit -601|
|00001980| 39 0d 40 4c 61 62 65 6c | 20 31 30 32 0d 20 20 72 |9.@Label| 102.  r|
|00001990| 65 74 75 72 6e 0d 00 00 | 00 00 00 00 00 00 00 00 |eturn...|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 01 00 00 00 01 18 | 00 00 00 18 00 00 00 46 |........|.......F|
|00001a10| 11 4e 91 7a 72 50 01 24 | ba 7f cb bf 12 20 6e 00 |.N.zrP.$|..... n.|
|00001a20| 0c 58 ae 92 78 56 7f 7e | bf 50 01 25 4a 38 01 a0 |.X..xV.~|.P.%J8..|
|00001a30| 12 45 58 41 52 20 46 61 | 78 26 4d 75 6c 74 69 44 |.EXAR Fa|x&MultiD|
|00001a40| 61 74 61 20 02 00 00 00 | 50 61 72 74 53 49 54 21 |ata ....|PartSIT!|
|00001a50| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 a7 fd 3b 94 00 00 | 00 00 00 00 01 5e 72 01 |....;...|.....^r.|
|00001a80| a8 73 68 6a 73 01 1c 00 | 9f 13 4e 5e 4e 75 4e 56 |.shjs...|..N^NuNV|
|00001a90| 5b 5c 9b 01 3e 2e 7b 25 | 01 2d 6e 4f 5b 03 4a 47 |[\..>.{%|.-nO[.JG|
|00001aa0| 6f 34 60 1c 57 5b 34 01 | 02 78 cc 52 7f 7e bf 50 |o4`.W[4.|.x.R.~.P|
|00001ab0| 01 24 e2 12 4f ef 00 10 | e0 01 53 47 c5 01 6e dc |.$..O...|..SG..n.|
|00001ac0| 7f 01 26 68 e2 51 01 08 | e8 a3 bf b7 5b 73 c4 79 |..&h.Q..|....[s.y|
|00001ad0| 3c 2a 10 19 70 24 2f 00 | 4e ad 01 ba 28 40 20 0c |<*..p$/.|N...(@ .|
|00001ae0| 58 8f 67 3a 70 01 22 0c | 66 16 2f 00 72 22 2f 01 |X.g:p.".|f./.r"/.|
|00001af0| 4e ad 01 ba 58 8f 22 00 | 20 1f 4a 81 66 02 70 00 |N...X.".| .J.f.p.|
|00001b00| 00 00 00 04 00 06 00 04 | 00 00 00 0c 00 09 08 52 |........|.......R|
|00001b10| 44 4d 6f 6e 61 63 6f 25 | 00 00 01 00 00 00 01 18 |DMonaco%|........|
|00001b20| 00 00 00 18 00 00 00 46 | 00 5f 56 74 0c 20 00 00 |.......F|._Vt. ..|
|00001b30| 00 1c 00 46 00 01 45 54 | 41 42 00 00 00 12 45 46 |...F..ET|AB....EF|
|00001b40| 4e 54 00 00 00 1e 03 ec | ff ff 00 00 00 00 00 5f |NT......|......._|
|00001b50| 55 bc 03 eb ff ff 00 00 | 00 08 00 5f 56 00 00 00 |U.......|..._V...|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+